home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcresrc / pcr8808.arc / GETREPLY.BAS < prev    next >
BASIC Source File  |  1988-03-30  |  1KB  |  19 lines
  1. 100 OPEN "GETREPLY.COM" FOR OUTPUT AS 1
  2. 200 FOR I = 1 TO 135 : READ BYTE
  3. 300 PRINT#1, CHR$(BYTE); : NEXT I : CLOSE 1
  4. 400 PRINT "GETREPLY.COM created.  Type SYSTEM to leave Basic."
  5. 1000 DATA 178,   7, 180,   2, 205,  33, 186, 134,   1, 180
  6. 1010 DATA  10, 205,  33, 178,  13, 180,   2, 205,  33, 178
  7. 1020 DATA  10, 180,   2, 205,  33, 186,  92,   0, 180,  22
  8. 1030 DATA 205,  33, 184, 128,   0, 187, 114,   1, 185,  20
  9. 1040 DATA   0, 138,  23, 135, 195, 136,  23, 135, 195,  64
  10. 1050 DATA  67, 226, 244, 138,  30, 113,   1, 128, 251,   0
  11. 1060 DATA 116,  18,  48, 219, 136,  30, 113,   1,  49, 201
  12. 1070 DATA 138,  14, 135,   1,  65, 187, 136,   1, 235, 217
  13. 1080 DATA 137, 195, 178,  10, 136,  23, 178,  26, 136,  87
  14. 1090 DATA   1,   5,   2,   0,  45, 128,   0, 163, 106,   0
  15. 1100 DATA 180,  21, 186,  92,   0, 205,  33, 180,  16, 205
  16. 1110 DATA  33, 205,  32, 255, 101,  99, 104, 111,  32, 111
  17. 1120 DATA 102, 102,  13,  10, 115, 101, 116,  32, 114, 101
  18. 1130 DATA 112, 108, 121,  61,  32
  19. , 101,  99, 104, 111,  3